home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / PASSRC.ZIP / LOOPDEMO.PAS < prev    next >
Pascal/Delphi Source File  |  1991-02-04  |  2KB  |  70 lines
  1.                                 (* Chapter 4 - Program 1 *)
  2. program Demonstrate_Loops;
  3.  
  4. var Count  : integer;
  5.     Start  : integer;
  6.     Ending : integer;
  7.     Total  : integer;
  8.     Alphabet : char;
  9.  
  10. begin
  11.    Start := 1;
  12.    Ending := 7;
  13.    for Count := Start to Ending do      (* Example 1 *)
  14.       Writeln('This is a count loop and we are in pass',Count:4);
  15.  
  16.    Writeln;
  17.    Total := 0;
  18.    for Count := 1 to 10 do begin        (* Example 2 *)
  19.       Total := Total + 12;
  20.       Write('Count =',Count:3,'  Total =',Total:5);
  21.       Writeln;
  22.    end;
  23.  
  24.    Writeln;
  25.    Write('The alphabet is ');
  26.    for Alphabet := 'A' to 'Z' do         (* Example 3 *)
  27.       Write(Alphabet);
  28.    Writeln;
  29.  
  30.    Writeln;
  31.    for Count := 7 downto 2 do            (* Example 4 *)
  32.       Writeln('Decrementing loop ',Count:3);
  33.  
  34. end.
  35.  
  36.  
  37.  
  38.  
  39. { Result of execution
  40.  
  41. This is a count loop and we are in pass   1
  42. This is a count loop and we are in pass   2
  43. This is a count loop and we are in pass   3
  44. This is a count loop and we are in pass   4
  45. This is a count loop and we are in pass   5
  46. This is a count loop and we are in pass   6
  47. This is a count loop and we are in pass   7
  48.  
  49. Count =  1  Total =   12
  50. Count =  2  Total =   24
  51. Count =  3  Total =   36
  52. Count =  4  Total =   48
  53. Count =  5  Total =   60
  54. Count =  6  Total =   72
  55. Count =  7  Total =   84
  56. Count =  8  Total =   96
  57. Count =  9  Total =  108
  58. Count = 10  Total =  120
  59.  
  60. The alphabet is ABCDEFGHIJKLMNOPQRSTUVWXYZ
  61.  
  62. Decrementing loop   7
  63. Decrementing loop   6
  64. Decrementing loop   5
  65. Decrementing loop   4
  66. Decrementing loop   3
  67. Decrementing loop   2
  68.  
  69. }
  70.